home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #1 / Amiga Plus Extra 1997 #1.iso / programme / daten / adm / arexx / adm-arexxmakros.lha / Sonstiges / UpdateFirmenadr.adm < prev    next >
Text File  |  1996-02-24  |  2KB  |  80 lines
  1. /* UpdateFirmenadr.adm */
  2.  
  3. Ver = "$VER: UpdateFirmenadr.adm 0.1 (24.2.96)"
  4.  
  5. /*
  6. von Jan Geissler
  7.  
  8. Ab Version 3.0 wird die Anredeform "Firma" nicht mehr
  9. unterstützt, da für Firmennamen ein separates Feld
  10. existiert.
  11.  
  12. Vorgehen dieses Makros:
  13.  
  14. Bei Adressen mit Anrede "Firma"
  15.  
  16. - die keinen Firmennamen , einen Nachnamen und
  17.   keinen Vornamen enthalten, wird der Name ins Feld
  18.   "Firmenname" übertragen und die Anrede "keine"
  19.   gesetzt.
  20.  
  21. - die einen Firmennamen, keinen Vor- und Nachnamen
  22.   enthalten, wird die Anrede gelöscht.
  23.  
  24. - die keinen Firmennamen, aber Namen und Vornamen
  25.   enthalten, wird eine Warnung ausgegeben.
  26.  
  27. - die einen Firmennamen und einen Namen und Vornamen
  28.   enthalten, wird die Anrede auf "Herrn" gesetzt und
  29.   eine Warnung ausgegeben.
  30.  
  31.  
  32.  
  33. History
  34.   0.1  [jan]   -- erste Version
  35.  
  36.  
  37. ----------------------------------------------------------------*/
  38.  
  39. OPTIONS RESULTS
  40.  
  41.  
  42. NL = "0a"x
  43.  
  44. ADDRINMEM
  45. numadr = RESULT
  46. ACTIVATEFIRST
  47.  
  48. DO FOR numAdr
  49.  
  50.    GETADDRESS ADM
  51.  
  52.    IF ADM.salutation = "Firma" THEN DO
  53.       IF ADM.company    = "" & ADM.firstname = "" & ADM.lastname ~= "" THEN DO
  54.          ADM.company    = ADM.lastname
  55.          ADM.sort       = company
  56.          ADM.lastname   = ""
  57.          ADM.salutation = ""
  58.          CHANGEADDRESS ADM
  59.          SAY "Bei Eintrag" ADM.company "wurde der Firmenname vom Feld 'Name' ins Feld 'Firmenname' übertragen" NL
  60.       END
  61.       IF ADM.company    ~= "" & ADM.firstname = "" & ADM.lastname = "" THEN DO
  62.          ADM.salutation = ""
  63.          CHANGEADDRESS ADM
  64.          SAY "Bei Eintrag" ADM.company "wurde Anrede mangels Ansprechpartner von 'Firma' auf 'keine Anrede' gesetzt" NL
  65.       END
  66.       IF ADM.company    ~= "" & ADM.lastname ~= "" THEN DO
  67.          ADM.salutation = "Herrn"
  68.          SAY "ACHTUNG: Eintrag" ADM.company "enthält Ansprechparner" ADM.fullname NL ||,
  69.              "aber fälschlicherweise Anrede 'Firma'."NL||,
  70.              "Anrede wurde nun auf 'Herrn' gesetzt, ggf. ändern!" NL
  71.          CHANGEADDRESS ADM
  72.       END
  73.       IF ADM.salutation = "Firma" THEN SAY "Anrede 'Firma' bei" ADM.fullname ADM.company
  74.    END
  75.  
  76.    ACTIVATENEXT
  77. END
  78. SAY "Fertig".
  79. EXIT
  80.